(FILECREATED "14-JUL-75 16:18:43" <LENAT>FIX.;1 1236   )


  (LISPXPRINT (QUOTE FIXCOMS)
	      T T)
  (RPAQQ FIXCOMS ((FNS UDCLEAN)))
(DEFINEQ

(UDCLEAN
  [LAMBDA (B)
    [MAPC (GETB B (QUOTE UP))
	  (FUNCTION (LAMBDA (Z)
	      (OR (NOT (ATOM Z))
		  (NOT (GETHASH Z HCON))
		  (MEMB B (GETB Z (QUOTE EXS)))
		  (AND (INCRB Z (QUOTE EXS)
			      B)
		       (CPRIN1 -1 CRLF "ADDING " B " TO EXS PART OF " Z CRLF]
    [MAPC (GETB B (QUOTE EXS))
	  (FUNCTION (LAMBDA (Z)
	      (OR (NOT (ATOM Z))
		  (NOT (GETHASH Z HCON))
		  (MEMB B (GETB Z (QUOTE UP)))
		  (AND (INCRB Z (QUOTE UP)
			      B)
		       (CPRIN1 -1 CRLF "ADDING " B " TO UP PART OF " Z CRLF]
    [MAPC (GETB B (QUOTE GENL))
	  (FUNCTION (LAMBDA (Z)
	      (OR (NOT (ATOM Z))
		  (NOT (GETHASH Z HCON))
		  (MEMB B (GETB Z (QUOTE SPEC)))
		  (AND (INCRB Z (QUOTE SPEC)
			      B)
		       (CPRIN1 -1 CRLF "ADDING " B " TO SPEC PART OF " Z CRLF]
    (MAPC (GETB B (QUOTE SPEC))
	  (FUNCTION (LAMBDA (Z)
	      (OR (NOT (ATOM Z))
		  (NOT (GETHASH Z HCON))
		  (MEMB B (GETB Z (QUOTE GENL)))
		  (AND (INCRB Z (QUOTE GENL)
			      B)
		       (CPRIN1 -1 CRLF "ADDING " B " TO GENL PART OF " Z CRLF])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (141 1212 (UDCLEAN 153 . 1209)))))
STOP